home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ WinXP Start Menu 10.xpl < prev    next >
Text File  |  2002-09-06  |  3KB  |  94 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="2"
  4. "UIPATH 1"="Appearance\Start Menu\Windows XP\New Start Menu"
  5. "NAME"="Extra Start Menu Entry"
  6. "LANGUAGE"="VBScript"
  7. "OSVERSION"="000001"
  8. "VERSION"="1.01"
  9. "TEXT 1"="Name"
  10. "TEXT 2"="Command"
  11. "DATA 1"="DO NOT USE! ENTER A TEXT"
  12. "DATA 2"="Executables (*.exe)|*.exe"
  13. "DESCRIPTION 1"="Windows XP with the new Start Menu contains a free space just below the "Executeà" method on the right side. This entry seems to be reserved for some further enhancements that Microsoft might add to XP some day."
  14. "DESCRIPTION 2"="However, at the moment this entry is not used. With this setting, you can assign this entry a command, either a program (.exe) or an internet link (htp://...)."
  15. "DESCRIPTION 3"="First, type the name of the link, as it should appear on your Start Menu, into the field "Name"; e.g. "My Prog". Second, enter the command you wish to execute (e.g. c:\tools\myprog.exe) or an internet link that should be opened (e.g. http://www.google.com)."
  16. "DESCRIPTION 4"="To revert this setting as it was, simply clear the field. All changes will then be removed and reset to the system default."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Found in CHIP Okt.2002/Page 208 - http://www.chip.de/"
  21.  
  22.  
  23. 'Declaration of some constants
  24.    sPathName="HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\@"
  25. sPathCommand="HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag\Param1"
  26. sPathQuickIn="HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag\Command"
  27.  sPathDefIco="HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon\@"
  28.   sPathIsSet="HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\X-Setup Patched"
  29.  
  30.  sValueIcon="%systemroot%\system32\shell32.dll,146"
  31.  
  32. 'Called when the Plugin is started
  33. SUB Plugin_Initialize
  34.  s=RegReadValue(sPathName)
  35.  Call SetUIElement(1,s)
  36.  
  37.  s=RegReadValue(sPathCommand)
  38.  Call SetUIElement(2,s)
  39. END SUB
  40.  
  41. 'Called when the Plugin should apply the changes
  42. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  s1=GetUIElement(1)
  44.  s2=GetUIElement(2)
  45.  
  46.  if len(s1)>0 and len(s2)>0 then
  47.  
  48.        'set entry
  49.        Call RegWriteValue(sPathName,s1,1)
  50.        Call RegWriteValue(sPathQuickIn,s1,1)
  51.        Call RegWriteValue(sPathCommand,s2,1)
  52.  
  53.        Call RegWriteValue(sPathDefIco,sValueIcon,1)
  54.  
  55.        Call RegWriteValue(sPathIsSet,"Yes",1)
  56.  
  57.        Call Logoff()
  58.  
  59.  else
  60.     if len(s1)=0 and len(s2)=0 then
  61.        'clear entry
  62.        if RegValueExists(sPathIsSet) then
  63.           Call RegWriteValue(sPathName,"",1)
  64.         
  65.           if RegValueExists(sPathQuickIn) then
  66.              Call RegDeleteValue(sPathQuickIn)
  67.           end if
  68.  
  69.           if RegValueExists(sPathCommand) then
  70.              Call RegDeleteValue(sPathCommand)
  71.           end if
  72.  
  73.           if RegValueExists(sPathDefIco) then
  74.              Call RegDeleteValue(sPathDefIco)
  75.           end if
  76.  
  77.           Call RegDeleteValue(sPathIsSet)
  78.           Call Logoff()
  79.        end if
  80.     else
  81.        Call MsgError("Please fill out both fields, to activate this setting, or leave both fields empty to remove this setting.")
  82.     end if
  83.  end if
  84.  
  85.  
  86.   
  87.  
  88. END SUB
  89.  
  90. 'Called when the Plugin is about to be removed from memory
  91. SUB Plugin_Terminate
  92. END SUB
  93.  
  94.